Fritz: All Fritz/All Fritz.zip/All Fritz/FILES/PROGSCAL/TBUTIL2.LZH/GETFREE.INC

Text File | 1984-07-13 | 1KB | 27 lines

PROCEDURE get_free_space(VAR free_clusters,total_clusters,
                             cluster_size ;
                             drive :BYTE);

BEGIN

   INLINE
   (  $8a/$56/$04/           {   mov dl,[bp+04]  load DL with drive num}
      $b4/$36/               {   mov ah,36 }
      $cd/$21/               {   int 21h         dos interupt type 36 }
      $89/$d9/               {   mov cx,bx       put bx in cx }
      $1e/                   {   push DS         save DS}
      $8b/$5e/$0e/           {   mov bx,[bp+0e]  load offset free_clusters}
      $85/$5e/$10/           {   mov ds,[bp+10]  load segment free_clusters}
      $89/$0f/               {   mov [bx],cx     put cx into free_clusters}
      $8b/$5e/$0a/           {   mov bx,[bp+0a]  load offset total_clusters}
      $85/$5e/$0c/           {   mov ds,[bp+0c]  load segment total_clusters}
      $89/$17/               {   mov [bx],dx     put dx into total_clusters}
      $8b/$5e/$06/           {   mov bx,[bp+06]  load offset cluster_size}
      $85/$5e/$08/           {   mov ds,[bp+08]  load segment cluster_size}
      $89/$07/               {   mov [bx],ax     put ax into cluster_size}
      $1f                    {   pop DS          restore DS}
      )
END;